home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / ADDSERV.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-09-26  |  4.2 KB  |  91 lines
  1. rem ==============================================================
  2. rem == Interrupt $0B:                                           ==
  3. rem ==   AH=Funktionsnummer                                     ==
  4. rem ==                                                          ==
  5. rem == AH=1:  GetParamOffset                                    ==
  6. rem ==          => AL = JIntNummer                              ==
  7. rem ==          <= DI = Offset                                  ==
  8. rem ==                                                          ==
  9. rem == AH=2:  AllocJanusMem                                     ==
  10. rem ==          => AL = Speichertyp                             ==
  11. rem ==          => BX = Anzahl der Bytes                        ==
  12. rem ==          <= BX = Offset auf Speicher                     ==
  13. rem ==                                                          ==
  14. rem == AH=3:  FreeJanusMem                                      ==
  15. rem ==          => AL = Speichertyp                             ==
  16. rem ==          => BX = Offset auf Speicher                     ==
  17. rem ==                                                          ==
  18. rem == AH=4:  SetParamOffset                                    ==
  19. rem ==            => AL = JIntNummer                              ==
  20. rem ==          => BX = Offset                                  ==
  21. rem ==                                                          ==
  22. rem == AH=5:  Nicht benutzt                                     ==
  23. rem == AH=6:  Nicht benutzt                                     ==
  24. rem ==                                                          ==
  25. rem == AH=10: AddService                                        ==
  26. rem ==          => AL = Flags                                   ==
  27. rem ==          => CX = LocalID                                 ==
  28. rem ==          => DI = Offset von PCCustomer                   ==
  29. rem ==          => SI = AppID (2. Wort)                         ==
  30. rem ==          => DS = AppID (1. Wort)                         ==
  31. rem ==          => ES = Segment von FirstPCCustomer             ==
  32. rem ==          <= AL = Fehler (0 = Kein Fehler)                ==
  33. rem ==          <= DI = Offset auf ServiceData-Struktur         ==
  34. rem ==                                                          ==
  35. rem == AH=11: GetService                                        ==
  36. rem ==          => AL = Flags                                   ==
  37. rem ==          => CX = LocalID                                 ==
  38. rem ==          => DI = Offset von PCCustomer                   ==
  39. rem ==          => SI = AppID (2. Wort)                         ==
  40. rem ==          => DS = AppID (1. Wort)                         ==
  41. rem ==          => ES = Segment von FirstPCCustomer             ==
  42. rem ==          <= AL = Fehler (0 = Kein Fehler)                ==
  43. rem ==          <= DI = Offset auf ServiceData-Struktur         ==
  44. rem ==                                                          ==
  45. rem == AH=12: CallService                                       ==
  46. rem ==          => DI = Service                                 ==
  47. rem ==                                                          ==
  48. rem == AH=13: ReleaseService                                    ==
  49. rem ==          => DI = Service                                 ==
  50. rem ==                                                          ==
  51. rem == AH=15: LockService                                       ==
  52. rem ==          => DI = Service                                 ==
  53. rem ==                                                          ==
  54. rem == AH=16: UnLockService                                     ==
  55. rem ==          => DI = Service                                 ==
  56. rem ==                                                          ==
  57. rem ==============================================================
  58.  
  59. $INCLUDE "REGNAMES.INC"
  60. def seg = &hd000
  61. cls
  62.  
  63. lc=1
  64. ap=12
  65.  
  66. REG %AX,(10*256)+&H10
  67. REG %CX,lc
  68. REG %SI,ap
  69. REG %DS,ap
  70. REG %ES,0
  71. REG %DI,0
  72. ?"AddService()"
  73. CALL INTERRUPT &H0B
  74. a=REG(%AX)
  75. o=REG(%DI)
  76. s=REG(%ES)
  77. ?"AX=";a
  78. ?"ES=";hex$(s)
  79. ?"DI=";hex$(o)
  80. aa=INT(a mod 256)
  81. IF (aa=0) THEN
  82.  ?"Remove Serv."
  83.  REG %AX,(13*256)
  84.  REG %ES,s
  85.  REG %DI,o
  86.  CALL INTERRUPT &H0B
  87.  ?reg(%AX)
  88.  ?"Released !"
  89. END IF
  90. END
  91.